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CHAPTER 1: MAKING DECISIONS 
INFORMATION 

In many programs you would like the computer 
to make a decision to follow one set of 
commands in one case and another set in a 
different case. To do this, use the 
IF-THEN command. IF a certain condition 
is true, THEN the computer will do something. 
IF the condition is not true, THEN the compu¬ 
ter will ignore the direction and go on to 
the next program line. 

ENTER/RUN/OBSERVE 

********************************************* 

* 10 GR.0 * 

* 20 A=7 * 

| 30 IF A=7 THEN GOTO 100 * 

| 40 END * 

*100 PRINT "A WAS 7!" * 

* * 
********************************************* 

CHANGE IT/RUN/OBSERVE 

Now change line 20 so you can INPUT a number. 

********************************************* 

* 20 PRINT "CAN YOU GUESS MY NUMBER":INPUT A* 

* * 
********************************************* 

Notice what happens when you use 7. 
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CHANGE IT/RUN/OBSERVE 


Add this: 


************ 

* 

ii * 

* 
* 
* 
* 
* 

************ 


********************************* 

* 40 PRINT A;" WAS NOT MY NUMBER. 

* 50 END 

* 

*********** * * ******************** 


Notice what happens when you don't use 7. 
RUN several times using different numbers. 


CHALLENGE 

In line 30 change the number to be represented 
by A. Also change the messages in lines 20, 

40 and 100. 

ENTER/RUN/OBSERVE 

************************************************* 

* 10 GR.0 * 

* 20 PRINT "GUESS MY NUMBER. (BETWEEN 1 AND 10)"* 

* 30 INPUT N * 

* 40 IF N=5 THEN GOTO 100 * 

* 50 PRINT "WRONG, GUESS AGAIN!" * 

* 60 GOTO 30 * 

*100 PRINT "CONGRATULATIONS!! YOU GOT IT!" * 

* * 
************************************************* 

Run this program several times, INPUTing different 
numbers. Then LIST to see how the program works. 
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CHANGE IT/RUN/OBSERVE 

******************************************** 

* 40 if N=7 THEN 100 * 

******************************************** 

When you use the GOTO command in an IF-THEN 
statement, you can leave out the word GOTO 
and just use the number. 

CHALLENGE 

CREATE a program to guess your age. When your 
program works, get a friend to try it. Make 
funny answers for guessing too old or too young. 
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INFORMATION 

IF-THEN can also be used with PRINT. 


ENTER/RUN/OBSERVE 


******************************************** 


10 GR.0 

15 DIM N$(15),S$(3),X$(4) 

20 PRINT "WHAT IS YOUR LAST NAME 
30 INPUT N$ 

40 PRINT "ARE YOU A FEMALE? (YES/NO)" 
50 INPUT S$ 

60 PRINT "HELLO "; 

70 IF S$="YES" THEN PRINT "MS. 

80 PRINT N$;" !" 

90 END 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


******************************************** 


LIST after you RUN this program. Notice why 
YES gives a different reply from NO. 

CHANGE IT/RUN/OBSERVE 

******************************************** 
* * 

* 55 GR.0:PRINT:PRINT:PRINT * 

* % 
******************************************** 
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CHANGE IT/RUN/OBSERVE 


Now add these lines to your program: 


*********************************************** 

* 


; 60 
I 70 

IF S$= 

YES" THEN 100 



| 80 

PRINT 

"PLEASED TO MEET YOU 

MR. 

"; N $ 

*100 

PRINT 

"IS IT MRS. OR MISS? 

II 


*110 

INPUT 

x$ 



|l20 

GR.0 




*130 

IF X$= 

:"MRS." THEN 200 



* 

*135 

IF X$= 

: "MRS" THEN 200 



*140 

PRINT 

"DO YOU PREFER TO BE 

CALLED MISS " 

I 150 

PRINT 

"OR MS.?" 



*160 

INPUT 

x$ 



*170 

PRINT: 

PRINT "IT HAS BEEN NICE 

TALKING WITH 

*180 

PRINT 

"YOU ";X$;" ";N$ 



*190 

END 




*200 

PRINT 

"HAVE A NICE DAY MRS 

" . 

• / 

N$;".":END 


* 

*********************************************** 


** 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

** 


RUN this program several times trying different 
answers. Notice how the different answers 
are handled. LIST. 
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CHALLENGE 

Write a program that will ask the following 
question: Who is the most important person 

in this room? 

You decide which answers you will accept 
to this question and the messages 
you want printed when other responses are 
given. 

ANOTHER CHALLENGE 

Create a 3-question quiz. Use IF-THEN to 
give responses for acceptable and unacceptable 
answers. 


Creative Learning Association 
Charleston, IL 61920 







- 7 - 


INFORMATION 

Try the following program to see what happens 
when commands are joined to an IF-THEN state¬ 
ment with a colon. 

ENTER/RUN/OBSERVE 


********************************************* 


* 10 GR.0 

* 15 DIM H$(2),N$(15) 

* 20 PRINT "CAN YOU SPEAK FRENCH? (Y/N)";: 

* INPUT H$ 

| 30 IF H$="Y" OR H$="y" OR H$="YES" THEN 

* PRINT "AH, BON SOIR. COMMENT T'APPELLE"; 

* :INPUT N$:GOTO 100 

| 40 PRINT "GLAD TO MEET YOU. WHAT'S YOUR 

* NAME"INPUT N$ 

* 50 PRINT:PRINT "SO LONG FOR NOW, ";N$:END * 

*100 PRINT:PRINT "AU REVOIR, ";N$:END * 

* * 
********************************************* 


Notice the use of OR in line 30. 


CHALLENGE 

Change the above program to ask if you speak 
Spanish or German. Have suitable replies for 
the possible answers. 
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INFORMATION 

So far in your IF-THEN statements, the computer 
has been checking to see if a variable equals 
a particular value. 

The computer can also check to see if the variable 
is more than, less than or not equal to the given 
value. The symbols for these relationships are: 


is more than 
^ is less then 
X or <> is not equal to 

ENTER/RUN/OBSERVE 

************************************************* 
| 10 GR.0:PRINT 

| 20 PRINT "GUESS THE NUMBER I'M THINKING OF!" 

* 30 PRINT 

* 40 INPUT N 

| 50 IF N <7 THEN PRINT "YOUR GUESS IS TOO LOW."; 

| 60 IF N >7 THEN PRINT "YOUR GUESS IS TOO 

* HIGH."; 

* ’ 

* 70 IF N=7 THEN PRINT "CONGRATULATIONS!! YOU 
| GOT IT!" 

* 80 IF N=7 THEN END 

| 90 PRINT" GUESS AGAIN":GOTO 30 

* 

************************************************* 
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When you run the program on the last page, 
try INPUTing numbers other than 7. 

CHANGE IT/RUN/OBSERVE 

*********************************************** 

* 65 IF N<>7 THEN PRINT" TRY ANOTHER GUESS." * 

* .-GOTO 40 * 

* * 

* 80 * 



*********************************************** 


CHALLENGE 

Change the program so it can be used to guess 
your weight. 
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ENTER/RUN/OBSERVE 


a k-k , k'k'k‘k"kic* , k , k1cic'k m k'k'k‘k m kicic1c‘k-JcJc'k'k'k-k'kicjcJcJc'k-kic1c'k'k , k’kjc'k 

| 10 GR.5 
*15 COLOR 1 

* 20 IF X=79 THEN X=0:Y=Y+1:C=C+1 

* 30 IF Y=39 THEN END 

* 40 PLOT X,Y 
| 50 X=X+1 

* 60 GOTO 20 

* 

******************************************** 


* 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


CHANGE IT/RUN/OBSERVE 

********************************************* 

* 35 COLOR C * 

| 45 IF C > 4 THEN C=1 * 

* * 
********************************************* 


CHALLENGE 

Create a program that will produce vertical 
colored stripes. 
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INFORMATION 

In the examples so far, the numbers you have 
used have all been whole numbers (integers). 

But in real life, you use many numbers that 
are not integers, such as fractional and 
decimal numbers. 

INT(X) will turn a non-integer into an integer. 
ENTER/RUN/OBSERVE 

****************************************** 

* 10 GR.0 

| 20 N=12 

* 30 PRINT N,N/7 

* 

****************************************** 

CHANGE IT/RUN/OBSERVE 

******************************************** 

* 40 PRINT 

* 

********** 


N, INT(N/7) * 

* 

********************************** 


** 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

** 
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INFORMATION 

The command INT(X) gives only the part to 
the left of the decimal point. The part 
to the right of the decimal is dropped. 

INT(X) does not round a number to the nearest 
integer, INT(4.99999) = 4. The expression in 
the parenthesis of the INT command can be a 
number (5.6, N, etc.) or an operation (5.6/3, 
3+X, T*I-1, etc.). 

ENTER/RUN/OBSERVE 

********************************************* 
| 10 N=l/2 * 

| 20 PRINT N, INT(N) * 

* * 

********************************************* 


CHANGE IT/RUN/OBSERVE 

Add these lines to the above program. 

********************************************* 

* 5 GR *0 | 

| 10 FOR X=0 TO 12 * 

* 15 N=X/2 * 

* 30 NEXT X * 

* * 
********************************************* 

Notice the numbers carefully. 
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CHANGE IT/RUN/OBSERVE 

******************************************* 

* 10 FOR X=-5 TO 5 * 

* * 
******************************************* 

Notice how the negative X-values become even 
smaller numbers after INT. INT(X) reduces 
each number to the next lowest integer. 

CHALLENGE 

Suppose you own a construction company and 
it takes you and your workers 1.25 months to 
build a house. 

Write a program that will calculate the number 
of complete houses that have been built by 
a) March, b) July, c) October, and d) December, 
assuming you start work on January 1st. Have 
the program allow you to INPUT the number of 
months worked. 
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ENTER/RUN/OBSERVE 


*********************************************** 

* 
* 

O 15 * 

* 
* 
* 
* 

T(N/2) THEN PRINT "THIS NUMBER * 

* 
* 

INT(N/2) THEN PRINT "THIS NUMBER* 

* 
* 
* 
* 
* 
* 

*********************************************** 


•k k k * 
* 

* 

* 

* 

10 

* 

* 

* 

20 

* 

* 

* 

30 

* 

* 

40 

* 

* 

* 

IS 

* 

k 

50 

k 

k 

k 

IS 

* 60 
* 

kkkk 


NEXT N 


CHANGE IT/RUN/OBSERVE 


*********************************************** 

* 55 IF N/5=INT(N/5) THEN PRINT N;" IS A * 

* MULTIPLE OF 5" * 

* * 
*********************************************** 


CHALLENGE 

Write a program that will print the multiples 
of 9 from 0 to 99 using INT(X) and IF-THEN. 
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REVIEW: Choose the command or key which 

will cause the function des¬ 
cribed below. 


COMMAND/KEY FUNCTION 



This command requires the computer to 

make a decision. It does one thing 

if the condition is true, and some¬ 
thing else if it is not. 


This command turns numbers into 

integers by eliminating all numerals 
to the right of the decimal point. 
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CHAPTER 2; MAKING CHANGES 
INFORMATION 

With longer programs and more complicated pro¬ 
gram lines, it becomes necessary to retype 
lines more often. Editing is making changes 
in the lines after they have been entered. 

Type in the program below without correcting 


the mistakes. Press the Caps/Lower key to 
get the lower case letters. 

ENTER/RUN/OBSERVE 

******************************************** 


* 10 GR.0 

* 


* 20 PRINT "Using small case latters is" 

* 

* 30 PRINT "very asy wath the Caps/Lower' 

* 40 PRINTT "key. However, all program" 

* 

* 50 PRNT "commands must be in captal" 

| 60 PRINT "letterss." 

******************************************** 

When you type in lines 40 and 50, the computer 
will immediately tell you that there is an 
error. But, let's fix line 20 first. 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


1 . 

List 

some 

the whole program. Notice that 
of the errors are marked. 

2. 

Hold 

down the 

CTRL 

key. 
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3. Use the arrow keys near the 

key to move the cursor 


4, 

5, 

6 , 


RETURN 


to the "a" in latters in line 20, 
Type the 


key. 


Press 


RETURN 


Using the 


CTRL 


and arrow keys. 


move the cursor to the end of 
the listing. 

That's all! It's fixed! 


Change the "a" in wath to an "i". 


In line 60 you are going to delete the extra 
s in "letterss". 


1 . 


Position the cursor using the 
key and the arrows over one of 
the s's in "letterss". 


CTRL 


2 . 


While holding the CTRL key, press 
the 


DELETE 
BACK S 


key. Notice how the 


whole line moves over. 

and move out of the 


3. Press 


RETURN 


listing, 


Notice in line 40 that the computer has already 
marked the error with a reverse character. 
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Move the cursor over the | E| 
in ERROR. It is important that 
you delete the error message as 
well as the actual mistake. 


Press the 
the 


CTRL 


DELETE 
BACK S 


key while holding 


several times until the 


3, 

4, 


cursor is over the P in PRINTT. 

Move over and erase the extra T. 

Notice that there is a reverse 
character over the first quotation 
mark. You can never leave a reverse 
character in the line so type over it. 

and exit the listing. 


5. Press 


RETURN 


Inserting letters is very similar to deleting 
them. Let's correct line 30 first. 

1. Move the cursor over the "a" in 


asy. 

Hold down the 


CTRL 


the 


INSERT 


key. 


key and press 
The line will 


move over one space. 


3. 

4. 


Type an "e" 


Press 


RETURN 


and exit the listing. 


In line 50 first the error message must be 
deleted and then an "I" inserted in the word 
PRNT. Remember not to leave any reverse char¬ 
acters. Try this one on your own. 
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Insert an "i" in the word "captal" and correct 
any other mistakes until the program runs 
smoothly. 

Editing saves time and energy so use it often! 

CHALLENGE 

Correct all the errors in the program below 
so that it will RUN. 

*************** * * **************************** 

* 10 GR.O * 

| 20 PRINT " GOOD THINGS come easily!" * 

* 30 PRINT " Isn 

* 

| 40 PRINT GOTO 
* 

**************** 


1 t that soo!" 
30 


* 
* 
* 
* 
* 
* 

***************************** 
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REVIEW: Choose the command or key which 

will cause the function described 
below. 


COMMAND/KEY FUNCTION 



This key must be pressed when edit¬ 
ing to allow cursor movement. 


This set of four keys is used to 
position the cursor when editing. 


While holding down the 

pressing this key moves 

over and allows you to c 

characters. 

CTRL 

the ! 

idd 

key. 

Line 


While holding down the 

pressing this key erases 

in a line. 

CTRL 

3 chai 

key, 

racters 
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CHAPTER 3: RANDOM CAN ADD THE UNEXPECTED 

INFORMATION 

The computer can be used to randomly select a 
number or word. The command that does this is 
RND. 

ENTER/RUN/OBSERVE 

***************************** * * ************** 

* 10 PRINT RND(1) * 

* * 
****** * * ******************** * * ******** * * ***** 

RUN this several times and note the number 
that is displayed. 

CHANGE IT/RUN/OBSERVE 

********************************************* 

* 5 FOR T=1 TO 10 £ 

* * 

* 15 NEXT T $ 

* * 
********************************************* 

Run the program several times. 


CHANGE IT/RUN/OBSERVE 


********** * * * * * * **************** ** *********** 

* 10 N=RND(1) £ 

* 13 PRINT N,10*N J 

* * 
********************************************* 
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Well, at least they're not decimals anymore! 

But you probably need integers. Ah ha! 

Another use for the INT(X) command. 

CHANGE IT/RUN/OBSERVE 

* * * * * *************************************** 

* 13 PRINT N, INT(10*N) * 

* * 
******************************************** 

Now you have a random set of numbers from 

0-9. The secret to the range of numbers is 

quite easy once you get the hang of it. Notice 

that in the above example you multiplied by 10 

and got random numbers from 0-9. Therefore, 

if you multiply by 20, you would get a random 

assortment from 0-19. If you want the range 

to be from 1 to 100, multiply by 100 and add 

1 . 

CHALLENGE 

Create a program that will print ten random 
integers that fall between 0^ and 100 . 

Edit the program so that the ten numbers are 
all between 0 and 32. 
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INFORMATION 

Random events such as the rolling of a die 
can be programmed. 


ENTER/RUN/OBSERVE 


To represent the rolling of a six-sided die, 
try this: 


********************** 

* 10 GR.0 

| 20 FOR T=0 TO 5 
| 30 R=INT(6*RND(1))+1 
| 40 PRINT T, R 

| 50 NEXT T 

* 

********************** 

RUN this several times 


********************* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

********************* 


CHANGE IT/RUN/OBSERVE 

To keep track of how often each number is 
selected, add these lines: 


******************************************** 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


31 IF R=1 THEN A=A+1 

32 IF R=2 THEN B=B+1 

33 IF R=3 THEN C=C+1 

34 IF R=4 THEN D=D+1 

35 IF R=5 THEN E=E+1 

36 IF R=6 THEN F=F+1 

(program continued) 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

-± 
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* 60 PRINT A,B,C,D,E,F * 

********************************************* 

Edit line 20 to represent more throws. Try 
50, 100, and 500. Notice how many times each 
number is selected. RUN it several times 
using 500 and record the values of A,B,C,D,E,F. 
(Or alter your program so the computer will do 
it for you!) 

CHALLENGE 

In some games, such as Dungeons and Dragons, 
many-sided dice are used. Create a program 
that will represent the roll of an eight-sided 
die. Remember there is no zero. 


Now edit it to produce five rolls of a ten¬ 
sided die. Label each dice roll and dress 
up your program. 
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INFORMATION 


Random can also be 


used with graphics. 


ENTER/RUN/OBSERVE 

******************************************* 


* 

* 

* 

10 

GR.5 


* 

* 

* 

20 

X=79*RND 

(1) 

* 

* 

* 

30 

Y=39*RND 

(1) 

* 

* 

* 

40 

COLOR 1 


* 

* 

* 

60 

PLOT X,Y 


* 

* 

70 

GOTO 20 



* 

******************************************* 

CHANGE IT/RUN/OBSERVE 

To make the color random, make these change 

******************************************* 

* 40 C=4*RND(1) 

| 50 COLOR C 

******************************************* 

CHANGE IT/RUN/OBSERVE 
Add this. 

******************************************* 

* 15 PLOT 40,20 

* 60 DRAWTO X,Y 

* 

******************************************* 
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CHALLENGE 

Alter the preceding program so that all the 
PLOTing and DRAWTOing will take place only 
on the left half of the screen. 
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INFORMATION 


The computer uses numbers to represent the 
letters and characters it displays on the 
screen. It also uses numbers to represent 
actions, such as sounding the buzzer, return¬ 
ing to the left of the screen, and clearing 
the screen. 

By providing the right number, you can get 
the action you want. 

ENTER/RUN/OBSERVE 

First, to see a small ball, try this: 

******************** * * ******************** 

* 10 PRINT CHR$(20); 

* 

****************************************** 

CHANGE IT/RUN/OBSERVE 

****************************************** 

* 5 FOR T=1 TO 27 

| 15 NEXT T 

* 

****************************** * * ********** 
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CHANGE IT/RUN/OBSERVE 
Make these changes: 

******************************************** 


* 


* 

* 

* 

* 

* 

* 

* 


* 3 INPUT X 

* 10 PRINT CHR$(X) 


******************************************** 


Now you can select a number and see what a 
whole line of the corresponding symbol looks 
like. 

Try the following values: 


123 

128 


96 


CHALLENGE 

Change the above program so that it will return 
to line 3. This will allow you to display your 
choice of the possible values of X for CHR$(X) 
without entering RUN so often. 
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INFORMATION 

By placing the last program in a FOR-NEXT 
loop, you can see all the symbols from 0 
to 255, before repeating. 

ENTER/RUN/OBSERVE 

To see this list of all the CHR$ numbers and 
their corresponding symbols, enter: 

*************************** 

* 10 GR.0 

* 20 FOR X=0 TO 255 
| 30 PRINT X,CHR$(X) 

* 40 FOR T=1 TO 50:NEXT T 

* 50 NEXT X 

* 

*************************** 

CHALLENGE 

Using one of the graphic characters, draw a 
horizontal line across the screen. Then have 
the buzzer sound five times. 


***************** 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

***************** 
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ENTER/RUN/OBSERVE 


******************************************* 
* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

******************************************* 


10 

GR.0 


20 

DIM 

A (5) 


25 

A (1) 

=72 


30 

A(2) 

=69 


35 

A(3) 

=76 


40 

A (4) 

=76 


45 

A (5) 

=79 


50 

FOR 

X=1 TO 

5 

60 

PRINT CHR$ 

(A (X) ) 

70 

NEXT 

X 



CHANGE IT/RUN/OBSERVE 


******************************************* 

* 25 A(1)=65 

* 30 A(2)=69 

* 35 A(3)=84 

* 40 A(4)=82 

* 

| 45 

* 55 N=INT(4*RND(1))+1 

* 60 PRINT CHR$ (A (N) ) ; 

*75 PRINT 

* 80 GOTO 50 

* 

******************************************* 
Notice how often it forms a word you know. 
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CHALLENGE 

Increase the size of the array to hold 12 
letters. But only randomly print three 
letter words. 
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REVIEW: Choose the command or key which 

will cause the function described 
below. 


COMMAND/KEY FUNCTION 



This command generates a random 

number between 0 and 1, including 0. 


This command prints characters or 
letters on the screen, depending on 
the number you use with it. 
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CHAPTER 4; UNUSED MEMORY AND MAKING MUSIC 

INFORMATION 

It is possible to find out the amount of unused 
memory remaining in the computer by using the 
FRE(X) command. This can be very handy to 
know when you're writing long programs and 
you want to know how much memory you have left. 

ENTER/RUN/OBSERVE 

******************************************** 

* PRINT FRE(X) * 

******************************************** 

This gives a number that is related to the 
unused memory. 

Record the number you get when there is no 
program in the memory. Call this number A. 

Now enter a short program into your computer . 

RUN the program . 

Again, enter: 

******************************************** 

* PRINT FRE(X) * 

* * 
******************************************** 

Call this number B. How does B compare with A? 
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CHALLENGE 

Create a program that allows you to INPUT ten 
numbers. Have the program show the number 
on the screen if it is a multiple of three. 
Let the last number that is shown be the 
amount of memory used . 
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CHANGE IT/RUN/OBSERVE 

Now change the volume (the last number). 

******************************************** 

* 15 FOR V=1 TO 15 * 

* 20 SOUND 0,121,10,V * 

* 50 NEXT V | 

* * 
******************************************** 

What do you think V does? 


CHANGE IT/RUN/OBSERVE 


The third number is called the distortion 


number. When it is 10, a clear note is pro¬ 


duced. Try this. 


******************************************** 
* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

******************************************* 


15 FOR D=1 TO 15 
20 SOUND 0,121,D,8 
25 PRINT D 
50 NEXT D 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


CHALLENGE 

Create a short program that produces five 
different sounds. The chart on the next page 
may be helpful. 
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PITCH 


NUMBER 

HIGH 

C 



29 

NOTES 

B 



31 


A# 

or 

B*» 

33 


A 



35 


G# 

or 

A b 

37 


G 



40 


F# 

or 

G* 

42 


F 



45 


E 



47 


D# 

or 

E* 

50 


D 



53 


c# 

or 

D* 

57 


c 



60 


B 



64 


A# 

or 

B* 

68 


A 



72 


G# 

or 

A* 

76 


G 



81 


F# 

or 

G* 

85 


F 



91 


E 



96 


D# 

or 

E te 

102 


D 



108 


c# 

or 

D* 

114 

MIDDLE C 

c 



121 


B 



128 


A# 

or 

B* 

136 


A 



144 


G# 

or 

A* 

153 


G 



162 


F# 

or 

G* 

173 


F 



182 

LOW NOTES 

D 



193 


D# 

or 

B te 

204 


D 



217 


c# 

or 

D^ 

230 


c 



243 
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INFORMATION 

The Atari can produce up to four sounds at once. 

ENTER/RUN/OBSERVE 

**************************** 

* 10 GR.0 

* 20 SOUND 0,121,10,8 

* 30 SOUND 1,91,10,8 
| 40 SOUND 2,81,10,8 

* 50 SOUND 3,60,10,8 

* 60 FOR T=1 TO 500:NEXT T 

* 

**************************** 

Notice that the first number selects which 
of the four voices to use: 0 to 3. 

CHANGE IT/RUN/OBSERVE 

Add these lines. 

************ 

* 15 X=1 

* 

* 20 FOR S=0 

* 30 SOUND S 

* 40 NEXT S 

* 50 X=0 

* 70 GOTO 20 

* 

************ 

Can you stop the sound? 

LIST. Study line 30 carefully. 


******************************* 

| 

,(60*X)+(20*S),10,8 * 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

******************************* 


*************** 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

*************** 
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CHANGE IT/RUN/OBSERVE 


******************************************** 

* 15 FOR X=1 TO 0 STEP -1 | 

* 70 NEXT X | 

"k * 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk ******* 


ENTER/RUN/OBSERVE 

Now clear the memory and enter this program. 

******************************************** 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


* 10 SOUND 0,121,10,5 

* 20 SOUND 1,96,10,5 

* 30 SOUND 2,81,10,5 
| 40 FOR T=1 TO 1000 :NEXT T 

* 50 FOR T=0 TO 2: SOUND T,0,0,0:NEXT T 

* 

******************************************** 
Experiment as you like with the different 
voices. Notice that line 50 easily turns 
all of the notes off. 


ENTER/RUN/OBSERVE 


******************************************** 

* 10 PRINT "INPUT A PITCH (29-243)" * 

* 20 PRINT "TYPE 0 TO END";:INPUT P * 

* 30 SOUND 0,P,10,5 * 

* * 

* 40 GOTO 10 * 

* k 

* * 
******************************************** 
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ENTER/RUN/OBSERVE 

Clear the memory and enter this program. 
********************************************* 


4 A=1 

5 N=180 

10 GRAPHICS 0 
20 SOUND 0,96,10,8 
40 FOR T=1 TO N:NEXT T 
50 SOUND 0,108,10,8 
60 FOR T=1 TO N:NEXT T 
70 SOUND 0,121,10,8 
90 FOR T=1 TO N:NEXT T 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

********************************************* 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

*100 SOUND 0,108,10,8 

*120 FOR T=1 TO N:NEXT T 
* 

*130 SOUND 0,96,10,8 

*150 FOR T=1 TO N:NEXT T 

*155 SOUND 0,0,10,8 

*156 FOR T=1 TO A:NEXT T 
* 

*160 SOUND 0,96,10,8 

*180 FOR T=1 TO N:NEXT T 
* 

*185 SOUND 0,0,10,8 

*187 FOR S=1 TO A:NEXT S 
* 

*200 SOUND 0,96,10,8 

*220 FOR T=1 TO N:NEXT T 
* 


Study the program carefully. RUN it several 
times. 
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CHANGE IT/RUN/OBSERVE 
Now add these lines. 


********************************************** 
* * 


* 

* 30 

SOUND 

1,81,10,8 * 

* 

* 55 

SOUND 

1,91,10,8 * 

TS. 

00 

:*** 

SOUND 

1,96,10,8 * 

*110 

SOUND 

1,91,10,8 * 

*140 

SOUND 

1,81,10,8 * 

*154 

SOUND 

1,0,10,8 * 

I 170 

SOUND 

*■ 

00 

V 

i — 1 

** 

\ — 1 
00 

i — 1 

*186 

SOUND 

1,0,10,8 * 

*210 

SOUND 

1,81,10,8 * 

* 

*********** 

* 

*********************************** 


CHALLENGE 

Create a short song with the SOUND command. 
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REVIEW: Choose the command or key which 

will cause the function described 
below. 


COMMAND/KEY FUNCTION 



This command produces a note for 

voice (S) of pitch (P) with volume 

(V) and distortion value (D). 


This command turns off a note. 


This tells how much usable memory 

is left in the computer. 
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REFERENCE 


COMMAND/KEY FUNCTION 



This set of four keys is used to 
position the cursor when editing. 

0- 

El 0\ 
= + 

0A 

* 


CTRL 

This key must be pressed when edit¬ 
ing to allow cursor movement. 


DELETE 
BACK S 


While holding down the 
pressing this key erases 

in a line. 

CTRL 

3 cha] 

key, 

cacters 

FRE(X) 

This tells how much usable memory 

is left in the computer. 

IF-THEN 

This command requires the computer 

to make a decision. It does one 

thing if the condition is true, and 

something else if it is not. 


INSERT 


While holding down the 

pressing this key moves 

over and allows you to i 

characters. 

CTRL 

the ! 

add 

key. 

Line 

INT(X) 

This command turns numbers into 

integers by eliminating all numerals 

to the right of the decimal point. 

PRINT CHR$(X) 

This command prints characters or 
letters on the screen, depending 

on the number you use with it. 
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CONGRATULATIONS!!! 

You have now finished the yellow instructional 
level of TLC FOR GROWING MINDS and have a good 
working vocabulary of BASIC commands. 

You are now ready to work the YELLOW projects 
in the Intermediate TLC Project Book. They 
will teach you new uses for the commands you 
have learned and help you gain experience using 
these commands. When you have finished the 
YELLOW projects, Volume 4 (GREEN) of TLC FOR 
GROWING MINDS will help you to continue 
learning. 
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